open(FH,"</Users/yaping/Documents/lab/project/SNP/Normal_SNP.txt") or die;
my @in=<FH>;
chomp(@in);
close(FH);
my @out;
foreach my $line(@in){
	if($line=~/\S+\t11\t(\d+)\t(\w)\t(\w)\t\w\t\w/){
		my $region=$1;
		my $a=$2;
		my $b=$3;
		#if($region <= 9000000 && $region >= 7000000 && ($a ne $b)){
		#	push(@out,"$line\n");
		#	
		#}
		if($region <= 9000000 && $region >= 7000000){
			push(@out,"$line\n");
			
		}
	}
}
open(OUT,">/Users/yaping/Documents/lab/project/SNP/Normal_SNP.chr11.7M-9M.txt");
print OUT @out;
close(OUT);